home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 December / macformat-019.iso / Demos / Featured in MacFormat 19 / RedShift / RSDEMO.MAC / RSDEMO.DXR / 00145.ls < prev    next >
Encoding:
Text File  |  1994-09-09  |  245 b   |  12 lines
  1. on ramcount
  2.   global frameram, highram
  3.   set highram to 0
  4.   repeat with mynumber = 1 to 900
  5.     set frameram to ramNeeded(mynumber, mynumber)
  6.     if frameram > highram then
  7.       set highram to frameram
  8.     end if
  9.   end repeat
  10.   put highram
  11. end
  12.